home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / pc / LOGIC Apple II 5.25" Library - DOS Part 2 / DOS028.dsk / OFF THE WALL.int < prev    next >
Text File  |  2012-02-16  |  2KB  |  78 lines
  1. 10 CALL -936
  2. 20 VTAB 3:TAB 14:PRINT "OFF THE WALLS"
  3. 30 VTAB 10:TAB 14:PRINT "BY GARY CARR"
  4. 40 FOR DELAY=1 TO 2000:NEXT DELAY
  5. 50 CALL -936
  6. 60 VTAB 10:TAB 7:PRINT "DO YOU REQUIRE INFORMATION(Y/N)"
  7. 70 INPUT A$:IF A$(1,1)#"Y" THEN 130
  8. 80 VTAB 10:PRINT "OFF THE WALLS IS A GAME IN WHICH A BOUNCING BALL'S SPEED AND DIRECTION ARE CONTROLLED BY THE GAME CONTROLS"
  9. 90 VTAB 16:PRINT "THE OBJECT OF THE GAME IS TO DESTROY EVERYTHING EXCEPT THE BALL IN AS FEW BOUNCES AS POSSIBLE."
  10. 100 PRINT "IF YOUR AN EXPERT TRY A BALL COLOR OF 0 GOOD LUCK"
  11. 110 VTAB 22:PRINT "PRESS ANY NUMBER THEN RETURN TO BEGIN":PRINT "PRESS ANY KEY TO EXIT THE PROGRAM"
  12. 120 INPUT Z
  13. 130 GR 
  14. 140 GOSUB 150:GOTO 210
  15. 150 FOR I=0 TO 14 STEP 2
  16. 160 TAB 2*I+4:PRINT I;
  17. 170 NEXT I:PRINT 
  18. 180 FOR I=1 TO 15 STEP 2
  19. 190 TAB 2*I+4:PRINT I;
  20. 200 NEXT I:RETURN 
  21. 210 GR :FOR I=0 TO 31:COLOR= I/2:VLIN 0,38 AT I+3:NEXT I
  22. 220 COLOR= 5:VLIN 0,39 AT 2:VLIN 0,39 AT 35:HLIN 2,35 AT 0:HLIN 2,35 AT 39
  23. 230 PRINT :PRINT 
  24. 240 INPUT "WHAT COLOR WOULD YOU LIKE THE BALL",BALL
  25. 250 IF BALL>-1 AND BALL<16 THEN GOTO 270
  26. 260 PRINT "COLORS ARE 0 TO 15 ONLY":GOTO 240
  27. 270 GOSUB 150:PRINT :PRINT 
  28. 280 INPUT "WHAT COLOR WOULD YOU LIKE THE TARGETS",TARGETS
  29. 290 GOSUB 150:PRINT :PRINT 
  30. 300 INPUT "WHAT COLOR WOULD YOU LIKE THE BORDER",B
  31. 310 PRINT :PRINT 
  32. 320 GR 
  33. 330 COLOR= B
  34. 340 HLIN 0,39 AT 0
  35. 350 HLIN 0,39 AT 39
  36. 360 VLIN 0,39 AT 0
  37. 370 VLIN 0,39 AT 39
  38. 380 COLOR= TARGETS
  39. 390 FOR X=3 TO 36 STEP 3
  40. 400 FOR X=3 TO 36 STEP 3
  41. 410 FOR Y=3 TO 36 STEP 6
  42. 420 PLOT X,Y
  43. 430 NEXT Y
  44. 440 NEXT X
  45. 450 XOLD=20
  46. 460 YOLD=38
  47. 470 XSPEED=1
  48. 480 YSPEED=1
  49. 490 XNEW=XOLD+XSPEED*PDL (0)/70
  50. 500 IF (XNEW>-1) AND (XNEW<40) THEN GOTO 580
  51. 510 X= PEEK (-16336)
  52. 520 XSPEED=-1*XSPEED
  53. 530 S=S+1
  54. 540 TAB 21:VTAB 23:PRINT S+T
  55. 550  POKE 50,63
  56. 560 X= PEEK (-16336)
  57. 570 GOTO 490
  58. 580 YNEW=YOLD+YSPEED*PDL (1)/70
  59. 590 IF (YNEW>-1) AND (YNEW<40) THEN GOTO 670
  60. 600 X= PEEK (-16336)
  61. 610 YSPEED=-1*YSPEED
  62. 620 T=T+1
  63. 630 TAB 21:VTAB 23:PRINT S+T
  64. 640  POKE 50,255
  65. 650 X= PEEK (-16336)
  66. 660 GOTO 580
  67. 670 COLOR= BALL
  68. 680 PLOT XNEW,YNEW
  69. 690 COLOR= 0
  70. 700 PLOT XOLD,YOLD
  71. 710 XOLD=XNEW
  72. 720 YOLD=YNEW
  73. 730 IF  PEEK (-16384)>127 THEN 750
  74. 740 GOTO 490
  75. 750  POKE -16368,0
  76. 760 TEXT :CALL -936: POKE 50,255
  77. 770 END 
  78.